home *** CD-ROM | disk | FTP | other *** search
- playSound("the correct answer is", 1)
- set sayStr to string(answer) & "," & disp1 & ",and," & disp2
- set sayItem to item 1 of sayStr
- set count to 0
- set flashCount to 0
- repeat while (sayItem <> EMPTY) or (flashCount <= 4)
- put string(answer) into field "ansDisplay"
- set t to the timer
- repeat while (the timer - t) < 30
- if not soundBusy(1) then
- set count to count + 1
- set sayItem to item count of sayStr
- if sayItem <> EMPTY then
- playSound(sayItem, 0)
- end if
- end if
- end repeat
- hilite field "ansDisplay"
- set t to the timer
- repeat while (the timer - t) < 30
- if not soundBusy(1) then
- set count to count + 1
- set sayItem to item count of sayStr
- if sayItem <> EMPTY then
- playSound(sayItem, 0)
- end if
- end if
- end repeat
- set flashCount to flashCount + 1
- end repeat
-